home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_PRO / RABBIT.ZIP;1 / SYSINF2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-06-09  |  8.2 KB  |  305 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Rabbit - Setup"
  5.    ControlBox      =   0   'False
  6.    Height          =   3780
  7.    Left            =   1575
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   202
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   352
  14.    Top             =   2010
  15.    Width           =   5460
  16.    Begin CommandButton Command4 
  17.       Caption         =   "&Cancel"
  18.       Height          =   330
  19.       Left            =   3375
  20.       TabIndex        =   13
  21.       TabStop         =   0   'False
  22.       Top             =   2385
  23.       Width           =   1590
  24.    End
  25.    Begin CommandButton Command3 
  26.       Caption         =   "Sa&ve && Exit"
  27.       Height          =   330
  28.       Left            =   3375
  29.       TabIndex        =   12
  30.       TabStop         =   0   'False
  31.       Top             =   1980
  32.       Width           =   1590
  33.    End
  34.    Begin CommandButton Command2 
  35.       Caption         =   "Change &Icon"
  36.       Height          =   330
  37.       Left            =   3375
  38.       TabIndex        =   11
  39.       TabStop         =   0   'False
  40.       Top             =   630
  41.       Width           =   1590
  42.    End
  43.    Begin CommandButton Command1 
  44.       Caption         =   "Change &Path"
  45.       Height          =   330
  46.       Left            =   3375
  47.       TabIndex        =   10
  48.       TabStop         =   0   'False
  49.       Top             =   225
  50.       Width           =   1590
  51.    End
  52.    Begin TextBox Text5 
  53.       Height          =   330
  54.       Left            =   900
  55.       TabIndex        =   9
  56.       TabStop         =   0   'False
  57.       Text            =   "Text5"
  58.       Top             =   2385
  59.       Width           =   2220
  60.    End
  61.    Begin TextBox Text4 
  62.       Height          =   330
  63.       Left            =   900
  64.       TabIndex        =   8
  65.       TabStop         =   0   'False
  66.       Text            =   "Text4"
  67.       Top             =   1845
  68.       Width           =   2220
  69.    End
  70.    Begin TextBox Text3 
  71.       Height          =   330
  72.       Left            =   900
  73.       TabIndex        =   7
  74.       TabStop         =   0   'False
  75.       Text            =   "Text3"
  76.       Top             =   1305
  77.       Width           =   2220
  78.    End
  79.    Begin TextBox Text2 
  80.       Height          =   330
  81.       Left            =   900
  82.       TabIndex        =   6
  83.       TabStop         =   0   'False
  84.       Text            =   "Text2"
  85.       Top             =   765
  86.       Width           =   2220
  87.    End
  88.    Begin TextBox Text1 
  89.       Height          =   330
  90.       Left            =   900
  91.       TabIndex        =   5
  92.       TabStop         =   0   'False
  93.       Text            =   "Text1"
  94.       Top             =   225
  95.       Width           =   2205
  96.    End
  97.    Begin VScrollBar VScroll1 
  98.       Height          =   2640
  99.       Left            =   30
  100.       TabIndex        =   14
  101.       Top             =   135
  102.       Width           =   285
  103.    End
  104.    Begin PictureBox Picture5 
  105.       BackColor       =   &H00E0E0E0&
  106.       BorderStyle     =   0  'None
  107.       Height          =   480
  108.       Left            =   360
  109.       ScaleHeight     =   480
  110.       ScaleWidth      =   480
  111.       TabIndex        =   4
  112.       Top             =   2295
  113.       Width           =   480
  114.    End
  115.    Begin PictureBox Picture4 
  116.       BackColor       =   &H00E0E0E0&
  117.       BorderStyle     =   0  'None
  118.       Height          =   480
  119.       Left            =   360
  120.       ScaleHeight     =   480
  121.       ScaleWidth      =   480
  122.       TabIndex        =   3
  123.       Top             =   1755
  124.       Width           =   480
  125.    End
  126.    Begin PictureBox Picture3 
  127.       BackColor       =   &H00E0E0E0&
  128.       BorderStyle     =   0  'None
  129.       Height          =   480
  130.       Left            =   360
  131.       ScaleHeight     =   480
  132.       ScaleWidth      =   480
  133.       TabIndex        =   2
  134.       Top             =   1215
  135.       Width           =   480
  136.    End
  137.    Begin PictureBox Picture2 
  138.       BackColor       =   &H00E0E0E0&
  139.       BorderStyle     =   0  'None
  140.       Height          =   480
  141.       Left            =   360
  142.       ScaleHeight     =   480
  143.       ScaleWidth      =   480
  144.       TabIndex        =   1
  145.       Top             =   675
  146.       Width           =   480
  147.    End
  148.    Begin PictureBox Picture1 
  149.       BackColor       =   &H00E0E0E0&
  150.       BorderStyle     =   0  'None
  151.       Height          =   480
  152.       Left            =   360
  153.       ScaleHeight     =   480
  154.       ScaleWidth      =   480
  155.       TabIndex        =   0
  156.       Top             =   135
  157.       Width           =   480
  158.    End
  159.    Begin Menu Special 
  160.       Caption         =   "&Special"
  161.       Begin Menu OnTop 
  162.          Caption         =   "Allways on &top"
  163.       End
  164.       Begin Menu About 
  165.          Caption         =   "&About Rabbit"
  166.       End
  167.       Begin Menu delimiter 
  168.          Caption         =   "-"
  169.       End
  170.       Begin Menu Exit 
  171.          Caption         =   "E&xit"
  172.       End
  173.    End
  174. Option Explicit
  175. Dim PicIndex As Integer
  176. Sub About_Click ()
  177. form4.Show 1
  178. End Sub
  179. Sub Command1_Click ()
  180. Dim x As Integer
  181. Dim pt As String
  182. form3.Caption = "Change Path"
  183. form3.Text1 = "*.exe"
  184. form3.File1.Pattern = "*.exe"
  185. form3.Show 1
  186. pt = form3!Text1.Text
  187. If pt <> "" Then
  188.      If Right$(form3!Dir1, 1) <> "\" Then
  189.        pt = form3!Dir1.Path + "\" + pt
  190.       Else
  191.        pt = form3!Dir1.Path + pt
  192.      End If
  193.     KnappPath(PicIndex + vscroll1.Value - 1) = pt
  194. Call ShowPic
  195. End If
  196. Unload form3
  197. End Sub
  198. Sub Command2_Click ()
  199. Dim pt As String
  200. form3.Caption = "Change Icon"
  201. form3.Text1 = "*.ico;*.bmp"
  202. form3.File1.Pattern = "*.ico;*.bmp"
  203. form3.Show 1
  204. pt = form3!Text1.Text
  205. If pt <> "" Then
  206.      If Right$(form3!Dir1, 1) <> "\" Then
  207.        pt = form3!Dir1.Path + "\" + pt
  208.       Else
  209.        pt = form3!Dir1.Path + pt
  210.      End If
  211.     KnappIcon(PicIndex + vscroll1.Value - 1) = pt
  212. Call ShowPic
  213. End If
  214. Unload form3
  215. End Sub
  216. Sub Command3_Click ()
  217. Dim x As Integer
  218. If ontop.Checked = True Then
  219.    OnTopVariabel = True
  220.   Else
  221.    OnTopVariabel = False
  222. End If
  223. Open InfoFilNamn For Output As #1
  224. For x = 0 To 19
  225. Print #1, KnappPath(x)
  226. Print #1, KnappIcon(x)
  227. Print #1, OnTopVariabel
  228. Close
  229. form2.Hide
  230. End Sub
  231. Sub Command4_Click ()
  232. form2.Hide
  233. End Sub
  234. Sub Exit_Click ()
  235. form2.Hide
  236. End Sub
  237. Sub Form_Load ()
  238. If OnTopVariabel = True Then
  239.    ontop.Checked = True
  240.   Else
  241.    ontop.Checked = False
  242. End If
  243. picture1.BorderStyle = 1
  244. vscroll1.Max = 15
  245. Call ShowPic
  246. End Sub
  247. Static Sub OnTop_Click ()
  248. ontop.Checked = Not ontop.Checked
  249. End Sub
  250. Sub Picture1_Click ()
  251.   picture1.BorderStyle = 1
  252.   picture2.BorderStyle = 0
  253.   picture3.BorderStyle = 0
  254.   picture4.BorderStyle = 0
  255.   picture5.BorderStyle = 0
  256.   PicIndex = 1
  257. End Sub
  258. Sub Picture2_Click ()
  259.   picture1.BorderStyle = 0
  260.   picture2.BorderStyle = 1
  261.   picture3.BorderStyle = 0
  262.   picture4.BorderStyle = 0
  263.   picture5.BorderStyle = 0
  264.   PicIndex = 2
  265. End Sub
  266. Sub Picture3_Click ()
  267.   picture1.BorderStyle = 0
  268.   picture2.BorderStyle = 0
  269.   picture3.BorderStyle = 1
  270.   picture4.BorderStyle = 0
  271.   picture5.BorderStyle = 0
  272.   PicIndex = 3
  273. End Sub
  274. Sub Picture4_Click ()
  275.   picture1.BorderStyle = 0
  276.   picture2.BorderStyle = 0
  277.   picture3.BorderStyle = 0
  278.   picture4.BorderStyle = 1
  279.   picture5.BorderStyle = 0
  280.   PicIndex = 4
  281. End Sub
  282. Sub Picture5_Click ()
  283.   picture1.BorderStyle = 0
  284.   picture2.BorderStyle = 0
  285.   picture3.BorderStyle = 0
  286.   picture4.BorderStyle = 0
  287.   picture5.BorderStyle = 1
  288.   PicIndex = 5
  289. End Sub
  290. Sub ShowPic ()
  291. picture1.Picture = LoadPicture(KnappIcon(0 + vscroll1.Value))
  292. Text1 = KnappPath(0 + vscroll1.Value)
  293. picture2.Picture = LoadPicture(KnappIcon(1 + vscroll1.Value))
  294. text2 = KnappPath(1 + vscroll1.Value)
  295. picture3.Picture = LoadPicture(KnappIcon(2 + vscroll1.Value))
  296. text3 = KnappPath(2 + vscroll1.Value)
  297. picture4.Picture = LoadPicture(KnappIcon(3 + vscroll1.Value))
  298. text4 = KnappPath(3 + vscroll1.Value)
  299. picture5.Picture = LoadPicture(KnappIcon(4 + vscroll1.Value))
  300. text5 = KnappPath(4 + vscroll1.Value)
  301. End Sub
  302. Sub VScroll1_Change ()
  303. Call ShowPic
  304. End Sub
  305.